home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  339 b   |  17 lines
  1. 10 input"datum format ttmmjjjj ";d$
  2. 20 t=val(mid$(d$,1,2))
  3. 30 m=val(mid$(d$,3,2))
  4. 40 j=val(mid$(d$,5))
  5. 50 if m<1 or m>12 then run
  6. 60 if t<1 or t>31 then run
  7. 70 gosub1000
  8. 80 print "julianisch: "jd
  9. 90 end
  10. 1000 rem kalender -> julianisch
  11. 1010 if m>2 then m=m-3:goto 1030
  12. 1020 m=m+9:j=j-1
  13. 1030 jh=int(j/100):ja=j-100*jh
  14. 1040 jd=int(146097*jh/4)+int(1461*ja/4)
  15. 1050 jd=jd+int((153*m+2)/5)+t
  16. 1060 return
  17.